home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / kowin / docprg / kowinp05.tvv < prev    next >
Text File  |  1997-06-06  |  15KB  |  500 lines
  1. 56,18
  2. 640,472
  3. 20
  4. 16
  5.  
  6. Ko-Window プログラミング、入門編 その３ 「便利なライブラリ」
  7.  
  8.  
  9.  
  10.   ここではリアルタイム処理や、ボタンやポップアップメニューなど、便利なライブ
  11. ラリを使ったアプリケーションを作っていきます。
  12.  
  13.  
  14. ● EventInterval
  15.  
  16.   まず、多分誰もが知りたがっているであろうリアルタイム処理について説明します。
  17. ようするに、ユーザーが何もしなくても勝手に動いている時計などの作り方です。
  18.  
  19.   以下はサンプルプログラムです。マウスカーソルの座標を監視し、ウィンドウ内に
  20. 報告します。左側の座標が画面全体に対する絶対位置で、右の座標が現在マウスカー
  21. ソルが載っているウィンドウローカルの座標になります。
  22.  
  23. ----------------------------------------------------------------------------
  24. #include    <corlib.h>
  25.  
  26. /* 0.05秒に1回座標をチェックし表示を更新する */
  27. #define        WAIT        5
  28.  
  29. int    WindowHeapSize= 0;
  30. char    msbuf[30];
  31.  
  32. /* 描画バッファを設定する */
  33. DrawSetMouse( dp )
  34. DrawBuf    *dp;
  35. {
  36.     DrawSetSymbol( dp, 4, 4, msbuf, AttrDefault, 12 );
  37.     return    1;    /* 使用した DrawBuf 数 */
  38. }
  39.  
  40. /* マウス座標を求めて、表示文字列に変換する */
  41. MouseSetPosition( info )
  42. EventInfo    *info;
  43. {
  44.     static    Old_x, Old_y;
  45.  
  46.     /* イベント情報を新たにバッファに獲得する */
  47.     WindowGetEventInfo( info );
  48.  
  49.     /* 前と座標が同じなら何もしない */
  50.     if( info->x != Old_x || info->y != Old_y ){
  51.         int    x, y, x2= 0, y2= 0;
  52.  
  53.         Old_x= x= info->x;
  54.         Old_y= y= info->y;
  55.  
  56.         /* チャイルドウィンドウ内の座標に変換する */
  57.         if( WindowGetChild( WindowRootID, info ) )
  58.             x2= info->x, y2= info->y;
  59.  
  60.         /* 得たマウスカーソル座標を文字列に変換する */
  61.         sprintf( msbuf, "(%4d,%4d) (%4d,%4d)", x, y, x2, y2 );
  62.         return    TRUE;
  63.     }
  64.     return    FALSE;
  65. }
  66.  
  67. EventExec( wp, info )
  68. WindowID    wp;
  69. EventInfo    *info;
  70. {
  71.     DrawBuf    dbuf[10], *dp= dbuf;
  72.     static unsigned    Time;    /* 時間カウントワーク */
  73.  
  74.     switch( info->option ){
  75.     case EventOpen:
  76.         MouseSetPosition( info );
  77.         WindowRedraw( wp );
  78.         /* EventInterval を有効にする */
  79.         WindowSetEventAttr( wp, EventAttrDefault|EventIntervalON );
  80.         return    TRUE;
  81.     case EventClose:
  82.         WindowClose( wp );
  83.         WindowConnectionClose();
  84.         return    TRUE;
  85.     case EventRedraw:
  86.         DrawSetClear( dp++, ColorGray );
  87.         dp+= DrawSetMouse( dp );
  88.         WindowDraw( wp, dbuf, dp-dbuf );
  89.         return    TRUE;
  90.  
  91.     case EventInterval:    /* インターバルイベント */
  92.         if( IntervalWait( WAIT, &Time ) ){
  93.             if( MouseSetPosition( info ) )
  94.                 WindowDraw( wp, dbuf, DrawSetMouse( dp ) );
  95.             return    TRUE;
  96.         }
  97.         return    FALSE;
  98.     }
  99.     return    FALSE;
  100. }
  101.  
  102. WindowMain( argc, argv )
  103. char    **argv;
  104. {
  105.     int    x= 10, y= 10;
  106.     AnalyzeArgs( argc, argv, &x, &y, NULL, NULL );
  107.     WindowTitleOpen( x, y, 200, 20, NULL, "smpl", Close|Push, EventExec );
  108. }
  109. ----------------------------------------------------------------------------
  110.   CPU が暇な間、常に発生し続けるのがこの EventInterval です。もちろん、あま
  111. りに頻繁に発生し続けられても困るので、適度な間隔をあけて自分の処理をしなけれ
  112. ばなりません。(例えば時計なら、書き換えは1秒に1回で十分でしょう)
  113.   その処理を行っているのがこの部分です。
  114.  
  115.     if( IntervalWait( WAIT, &Time ) ){
  116.         if( MouseSetPosition( info, TRUE ) )
  117.             WindowDraw( wp, dbuf, DrawSetMouse( dp ) );
  118.         return    TRUE;
  119.     }
  120.  
  121.  IntervalWait() という関数は、指定時間以上経過すると一度だけ TRUE を返します。
  122. 時間は 1/100 秒単位なので、この例では 0.05 秒待っていることになります。&Time
  123. というのは IntervalWait() 内部で使う時間計測のためのカウンタです。適当な変数
  124. (必ず static か global) のアドレスを与えておいて下さい。
  125.  
  126.  
  127.  
  128. ●ポップアップメニュー
  129.  
  130.   ポップアップメニューは、parts.a(またはlibparts.a) の PopUpMenu() という関
  131. 数で、簡単に処理することができます。
  132.  
  133.   このサンプルでは、マウスボタンのポップアップメニューで、ウィンドウ内に表示
  134. している文字の大きさを変えることができます。
  135. ----------------------------------------------------------------------------
  136. #include    <corlib.h>
  137.  
  138. int    WindowHeapSize= 0;
  139. int    Font= 16;        /* 表示フォントサイズ */
  140.  
  141. /* メニュー文字列 */
  142. char    *menu[]= {
  143.         "10dot フォント",
  144.         "12dot フォント",
  145.         "16dot フォント",
  146.         "24dot フォント",
  147. };
  148. int    fontlist[]= { 10, 12, 16, 24 };
  149.  
  150. redraw( wp )
  151. WindowID    wp;
  152. {
  153.     DrawBuf    dbuf[10], *dp= dbuf;
  154.     DrawSetClear( dp++, ColorGray );
  155.     DrawSetSymbol( dp++, 0, 0, "サンプル", AttrDefault, Font );
  156.     WindowDraw( wp, dbuf, dp-dbuf );
  157. }
  158.  
  159. /* ポップアップメニューの処理 */
  160. popupmenu( wp, info )
  161. WindowID    wp;
  162. EventInfo    *info;
  163. {
  164.     int    n, px, py;
  165.  
  166.     /* マウスカーソルのグローバル座標を得る */
  167.     /* まずウィンドウの HOME 位置の絶対座標を得る */
  168.     WindowGetScreenPosition( wp, &px, &py );
  169.     px+= info->x;    /* それにマウスカーソル位置のローカル座標を加える */
  170.     py+= info->y;
  171.  
  172.     /* ポップアップメニュー*/
  173.     n= PopUpMenu( px-1, py, menu, sizeof menu/sizeof(char*), Font );
  174.     if( n >= 0 && n <= 3 ){
  175.         Font= fontlist[ n ];
  176.         redraw( wp );
  177.     }
  178. }
  179.  
  180. EventExec( wp, info )
  181. WindowID    wp;
  182. EventInfo    *info;
  183. {
  184.     switch( info->option ){
  185.     case EventOpen:
  186.         WindowRedraw( wp );
  187.         return    TRUE;
  188.     case EventClose:
  189.         WindowClose( wp );
  190.         WindowConnectionClose();
  191.         return    TRUE;
  192.     case EventRedraw:
  193.         redraw( wp );
  194.         return    TRUE;
  195.     case EventMouseSwitch:
  196.         if( info->LeftON || info->RightON ){
  197.             popupmenu( wp, info );
  198.             return    TRUE;
  199.         }
  200.     }
  201.     return    FALSE;
  202. }
  203.  
  204. WindowMain( argc, argv )
  205. char    **argv;
  206. {
  207.     int    x= 10, y= 10;
  208.     AnalyzeArgs( argc, argv, &x, &y, NULL, NULL );
  209.     WindowTitleOpen( x, y, 200, 50, NULL, "smpl", Close|Push, EventExec );
  210. }
  211. ----------------------------------------------------------------------------
  212.  
  213. メニュー処理を行っているのは、popupmenu() 内の PopUpMenu() です。
  214.  
  215.     PopUpMenu( x, y, メニュー文字列, 項目数, フォントサイズ );
  216.  
  217.  x, y はメニューを表示する座標で、これはルートウィンドウに対する座標(グローバ
  218. ル座標)でなければなりません。しかし、EventMouseSwitch 時に info->x, info->y
  219. で与えられる値は、すでにローカル座標に変換されてしまっています。
  220.  
  221. そこで、まずローカル座標をグローバルに変換しなければなりません。
  222.  
  223.     WindowGetScreenPosition( wp, &px, &py );
  224.  
  225. これは、それぞれのウィンドウ内の HOME 位置が、グローバル座標でどの位置に当た
  226. るかを返します。その HOME 位置の座標に、先程のローカル座標 info->x, info->y
  227. を加えてやればいいのです。
  228.  
  229. メニュー文字列は char ** で与えます。これは最初に menu[] というポインタ配列
  230. で定義しています。メニューの項目数は、menu[] がポインタ配列だということを利
  231. 用して、コンパイラに計算させています。
  232.  
  233.     sizeof menu / sizeof(char*)
  234.  
  235. これが項目数に相当します。このように記述しておけば、menu[] を書き換えるだけ
  236. で簡単に内容の増減ができるというわけです。
  237.  
  238.   さて PopUpMenu() の戻り値ですが、これはメニューのどれかが選ばれた場合、項
  239. 目番号(各項目の上から順に 0～と振った番号)が返ってきます。つまり 0～項目数 -1
  240. の範囲になるわけです。どれも選択されなかった場合は -1 が返ります。
  241.  
  242.  
  243.  
  244. ●プッシュボタン
  245.  
  246.   プッシュボタンを作るには、まずボタンの形を描画して、EventMouseSwitch 発生時
  247. に、マウスカーソルがどのボタンの上にあるか座標比較して求めなければなりません。
  248. 多くのアプリケーションは、この方法でウィンドウ内のマウス操作を行っています。
  249.  
  250.   この処理はかなり面倒になるので、それらを一手に引き受けてくれる便利なライブ
  251. ラリが存在します。MgButton ライブラリです。これは corlib.a に含まれています。
  252.  
  253. ----------------------------------------------------------------------------
  254. #include    <corlib.h>
  255.  
  256. int    WindowHeapSize= 1024*2;    /* MgButton ライブラリは HEAP を使う！ */
  257. int    Attr= AttrDefault;
  258.  
  259. redraw( dp )
  260. DrawBuf    *dp;
  261. {
  262.     DrawSetSymbol( dp, 0, 0, "サンプル", Attr, 24 );
  263.     return    1;
  264. }
  265.  
  266. EventExec( wp, info )
  267. WindowID    wp;
  268. EventInfo    *info;
  269. {
  270.     DrawBuf    dbuf[30], *dp= dbuf;
  271.     static MgButton    mb;    /* MgButton で使う構造体 */
  272.     switch( info->option ){
  273.     case EventOpen:
  274.         MgButtonInit( &mb );    /* MgButton 初期化 */
  275.         /* ボタン定義 */
  276.         MgButtonSetSymbol( &mb, 4,34, 4, 1, " 灰色 ", AttrDefault,12 );
  277.         MgButtonSetSymbol( &mb,54,34, 4, 3, "  白  ", AttrDefault,12 );
  278.         MgButtonSetSymbol( &mb, 4,60, 4, 9, "灰反転", AttrDefault,12 );
  279.         MgButtonSetSymbol( &mb,54,60, 4,11, "白反転", AttrDefault,12 );
  280.         WindowRedraw( wp );
  281.         return    TRUE;
  282.     case EventClose:
  283.         WindowClose( wp );
  284.         WindowConnectionClose();
  285.         return    TRUE;
  286.     case EventRedraw:
  287.         DrawSetClear( dp++, ColorGray );
  288.         dp+= redraw( dp );
  289.         /* ボタン表示 */
  290.         WindowDraw( wp, dbuf, MgButtonSetDraw( &mb, dp ) + dp-dbuf );
  291.         return    TRUE;
  292.     case EventMouseSwitch:
  293.         if( info->LeftON ){
  294.             int    a;
  295.             /* ボタン操作 */
  296.             if( a= MgButtonOperation( wp, info, &mb ) ){
  297.                 Attr= a;
  298.                 WindowDraw( wp, dbuf, redraw( dbuf ) );
  299.             }
  300.             return    TRUE;
  301.         }
  302.     }
  303.     return    FALSE;
  304. }
  305.  
  306. WindowMain( argc, argv )
  307. char    **argv;
  308. {
  309.     int    x= 10, y= 10;
  310.     AnalyzeArgs( argc, argv, &x, &y, NULL, NULL );
  311.     WindowTitleOpen( x, y, 200,100, NULL, "smpl", Close|Push, EventExec );
  312. }
  313. ----------------------------------------------------------------------------
  314.   先程のポップアップメニューと似たようなプログラムを、プッシュボタンで作って
  315. みました。今回は大きさじゃなくて、色の変更を行っています。
  316.  
  317.   まず、この MgButton ライブラリは HEAP を使うので(内部で malloc() している)、
  318.  WindowHeapSize の設定を忘れないで下さい。
  319.  
  320.   MgButton ライブラリは、MgButton という構造体で管理されています。プログラム
  321. では MgButton mb; と宣言しています。これは必ず global か static にしてメモリ
  322. に割り付けて下さい。
  323.  
  324.   最初に MgButtonInit( &mb ); で初期化したのち、それぞれボタンを定義していき
  325. ます。ここでは EventOpen 時に MgButtonSetSymbol() を使っています。これは四角
  326. いボタンで、内部に任意の文字を書き込むことができます。
  327.  
  328.   MgButtonSetSymbol( &mb, x, y, 枠幅, ボタンナンバー, 文字列, attr, font );
  329.  
  330.  x, y はボタンを置く座標です。ボタンの大きさは、この場合文字列の文字数とフォ
  331. ントサイズで決まります。枠幅というのは、文字列から枠の四角までどれだけ間を開
  332. けるか、を示しています。ボタンナンバーというのは、そのボタンが押された時に返
  333. される値です。EventMouseSwitch の時に、この値によってどのボタンが押されたの
  334. かを判断するわけです。
  335.  
  336.   この MgButtonSetSymbol() 以外にも、Sheet(絵)で書いたボタンや、トグルボタン
  337. など、さまざま定義することができます。
  338.  
  339.     MgButtonSetDraw( &mb, DrawBuf )
  340.  
  341. これは各ボタンの描画設定をする関数です。戻り値は消費した DrawBuf の数です。
  342.  EventRedraw 時に使います。
  343.  
  344.     MgButtonOperation( &mb, info, wp )
  345.  
  346. これは、EventMouseSwitch 時に、どのボタンが押されたのかを調べるために使いま
  347. す。もしどれかのボタンが押されていれば、そのボタンのボタンナンバーを返し、ど
  348. れもおされてなければ FALSE を返します。
  349.  
  350. このサンプルプログラムでは、ボタンナンバーに直接必要な値である文字アトリビュー
  351. ト(数値)を設定してしまい、戻り値をそのまま使うという方法を取っています。
  352.  
  353.  
  354.  
  355. ●文字列の入力
  356.  
  357.   文字列の入力は、MgInput ライブラリを使うとたいへん簡単でかつ便利です。この
  358. ライブラリは corlib.a (または libcor.a) に含まれています。
  359.  
  360. ----------------------------------------------------------------------------
  361. #include    <corlib.h>
  362.  
  363. int    WindowHeapSize= 0;
  364.  
  365. EventExec( wp, info )
  366. WindowID    wp;
  367. EventInfo    *info;
  368. {
  369.     DrawBuf    dbuf[1];
  370.     static MgInput    mp;
  371.     switch( info->option ){
  372.     case EventOpen:
  373.         WindowSetEventAttr( wp, EventAttrDefault|EventUserON );
  374.         /* 入力エリアをオープン */
  375.         MgInputScrollOpen( &mp, 10, 10, wp, 30, AttrDefault, 10 );
  376.         WindowRedraw( wp );
  377.         return    TRUE;
  378.     case EventClose:
  379.         WindowClose( wp );
  380.         WindowConnectionClose();
  381.         return    TRUE;
  382.     case EventRedraw:
  383.         DrawSetClear( dbuf, ColorGray );
  384.         WindowDraw( wp, dbuf, 1 );
  385.         /* 入力エリアの描画 */
  386.         MgInputRedraw( &mp );
  387.         return    TRUE;
  388.     case EventKey:
  389.         /* 改行の入力で中身をクリアするだけ */
  390.         if( info->KeyCode == '\r' ){
  391.             MgInputClear( &mp );
  392.             return    TRUE;
  393.         }
  394.     case EventMouseSwitch:
  395.     case EventMouseEnter:
  396.     case EventMouseOut:    /*これ1つでまとめて処理してくれる*/
  397.         return    MgInputSendEvent( &mp, info );
  398.     case EventUser:        /* Paste は全部キー入力として受け取る */
  399.         return    ClipGetKeyboardAll( wp, info );
  400.     }
  401.     return    FALSE;
  402. }
  403.  
  404. WindowMain()
  405. {
  406.     WindowTitleOpen( 10, 10, 200, 80, NULL, "mg", Push|Close, EventExec );
  407. }
  408. ----------------------------------------------------------------------------
  409.   このプログラムは、単純に１行入力を行うだけのプログラムです。残念ながら文字
  410. 列を入力しても何も起こりません。ただ、この入力には行編集が可能で、ED.X 風キー
  411. 操作、または Emacs 風キー操作の双方でコントロールできます。デフォルトは ED.X
  412. キーバインドですが、あらかじめ環境変数 KOWINKEY に "iemacs" と書いておけばデ
  413. フォルトで Emacs キーバインドになります。また入力中に、[CTRL]+[_] [e] と入力
  414. しても Emacs モードになります。
  415.  
  416.   この関数は表示エリアが小さくても、キー入力に応じて内容をスクロールさせ、長
  417. い文字列入力を可能にしています。ここではスクロールバーつき関数を使っています
  418. が、スクロールバーがじゃまな場合はスクロールバーなしの入力関数を使うこともで
  419. きます。
  420.  
  421.  
  422.  
  423. ●低レベルな文字列の入力
  424.  
  425.   MgInput() を使えば行入力は極めて簡単ですが、parts.a(libparts.a) を使った
  426. 入力ルーチンもおまけで例としてあげておきます。MgInput() は比較的新しいライブ
  427. ラリなので、昔のプログラムでは全部この方法で記述されていました。参考用にどう
  428. ぞ。行編集機能は MgInput() と同じですが、エリア内のスクロールはしません。
  429.  
  430. ----------------------------------------------------------------------------
  431. #include    <corlib.h>
  432.  
  433. int    WindowHeapSize= 0;
  434. char    buffer[30];        /* キー入力した文字列が入る */
  435.  
  436. EventExec( wp, info )
  437. WindowID    wp;
  438. EventInfo    *info;
  439. {
  440.     DrawBuf    dbuf[30], *dp= dbuf;
  441.     static InputClass    input;    /* Input 関数で使う構造体 */
  442.     switch( info->option ){
  443.     case EventOpen:
  444.         /* 文字列入力位置の座標と、書き込むバッファ等を定義する */
  445.         InputSet( &input, 4, 10, buffer, 20, AttrDefault, 12 );
  446.         *buffer= '\0';
  447.         WindowRedraw( wp );
  448.         return    TRUE;
  449.     case EventClose:
  450.         WindowClose( wp );
  451.         WindowConnectionClose();
  452.         return    TRUE;
  453.     case EventRedraw:
  454.         DrawSetClear( dp++, ColorGray );
  455.         WindowDraw( wp, dbuf, InputSetDraw( dp, &input )+1 );
  456.         return    TRUE;
  457.     /* キー入力処理 */
  458.     case EventKey:
  459.         if( info->KeyCode == '\r' ){    /* RETURN キーが押された場合*/
  460.             /* 取り敢えず、入力行をクリアするだけ */
  461.             info->KeyCode= 'u' & 0x1f;    /* CTRL-U */
  462.         }
  463.         WindowDraw( wp, dbuf,
  464.             InputKey( dbuf, &input, info->KeyCode, info->ShiftStat ) );
  465.         return    TRUE;
  466.     /* マウスがウィンドウに出入りした時に、カーソルが ON/OFF して
  467.        ウィンドウのフォーカスがわかるようにする処理 */
  468.     case EventMouseEnter:
  469.     case EventMouseOut:
  470.         WindowDraw( wp, dbuf,
  471.             InputSetCursorVisible( dbuf, &input,
  472.                 info->option == EventMouseEnter ) );
  473.         return    TRUE;
  474.     }
  475.     return    FALSE;
  476. }
  477.  
  478. WindowMain( argc, argv )
  479. char    **argv;
  480. {
  481.     int    x= 10, y= 10;
  482.     AnalyzeArgs( argc, argv, &x, &y, NULL, NULL );
  483.     WindowTitleOpen( x, y, 200,50, NULL, "smpl", Close|Push, EventExec );
  484. }
  485. ----------------------------------------------------------------------------
  486.  
  487.  
  488.  
  489.  
  490. --
  491. 1994 9/04  最初に作成
  492. 1995 9/15  ライブラリの追加で内容が古くなった部分をバッサリ入れ替え
  493.  
  494. 小笠原博之
  495. oga@dgw.yz.yamagata-u.ac.jp
  496. DenDenNET: DEN0006 COR.
  497.  
  498. 12,9,2
  499.   このウィンドウを閉じる C
  500.